home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / writions / evol202a / multiply.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-28  |  378 b   |  13 lines
  1.   Unit Multiply;
  2.     interface
  3.       Function MultiplyTwoNumbers(OneNumber : Integer;AnotherNumber : Integer) : Integer; 
  4.     implementation
  5.       Function MultiplyTwoNumbers(OneNumber : Integer;AnotherNumber : Integer) : Integer;
  6.         begin
  7.           MultiplyTwoNumbers :=
  8.             OneNumber* 
  9.             AnotherNumber;
  10.           end;
  11.       begin
  12.       end.
  13.